perm filename TYPE[1,DBL] blob sn#033977 filedate 1973-04-09 generic text, type T, neo UTF8
00100	(DE TYPE () (PROG NIL
00200	(SETQ S (TIME))
00300	(SETQ T (READ))
00400	(SETQ E (TIME))
00500	(PRIN1 (CONCAT
00600	"
00700	NUMBER OF WORDS WAS " (SETQ L (LENGTH T))
00800	"
00900	THE TIME USED WAS " (SETQ F (DIFFERENCE
01000	     E S)) "
01100	THE SPEED WAS " (QUOTIENT L F]